home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Telnet / 5PM PowerMac / 5PM_Term_PPC.sea / Palettes Folder / VI navigator.rsrc / BTXT_16 < prev    next >
Text File  |  1993-09-28  |  266b  |  12 lines
  1. On mouseUp
  2.     Answer "Save changes before closing?" with "Cancel", "No", "Yes"
  3.     If it is Cancel then
  4.         Exit mouseUp
  5.     End if
  6.     If it is "Yes" then
  7.         Transmit ":x" & cr
  8.     Else
  9.         Transmit numToChar (27) & ":q!" & cr
  10.     End if
  11.     Close palt word 5 of the name of me
  12. End mouseUp